package Text::Pipe::HTML::EncodeEntities;

use strict;
use warnings;
use HTML::Entities;


our $VERSION = '0.01';


use base qw(Text::Pipe::Base);


sub filter_single {
    my ($self, $input) = @_;
    encode_entities($input);
    $input;
}


1;


__END__

{% USE p = PodGenerated %}

=head1 NAME

{% p.package %} - Text pipe that can encode HTML entitites

=head1 SYNOPSIS

    my $pipe = Text::Pipe->new('HTML:EnccodeEntities');
    my $result = $pipe->filter(...);

=head1 DESCRIPTION

{% p.write_inheritance %}

=head1 METHODS

=over 4

{% p.write_methods %}

=item filter_single

Takes a single string, encodes it with HTML entities, and returns it.

=back

{% PROCESS standard_pod %}

=cut

